TRANS	BOLT	  35.00  25.00   4.40 180.00  90.00    .00
TRANS	NUT	  40.00  18.00    .80 180.00  90.00    .00


VECT	V	    .00    .00   1.00
VECT	NULL	    .00    .00    .00
VECT	F1	   1.00    .00    .00
VECT	F2	    .00   1.00    .00
VECT	F3	    .00    .00  -1.00
VECT	F	    .00    .00    .00
VECT	M	    .00    .00-120.00
VECT	FORCE	    .00    .00 -50.00
VECT	NIL	    .00    .00    .00


DEFINE	STACK	
BEGIN STACK
PROTOTYPE CUBE
VECT IP
28 28 .65
TRANS T
32 20 .65 90 -90 0
TRANS F
20 35 .65 90 -90 0
MOVE_INSTANCE T F IP
TRANS F
20 35 .65 180 90 0
OPEN 3
MOVE F
CLOSE .5
OPEN 3
DRIVE 6 -90 60
CLOSE .5
OPEN 3
TRANS T
40 12 .65 90 -90 0
TRANS F
20 35 2.0 90 0 0
MOVE_INSTANCE T F IP
TRANS F
20 35 2.0 180 90 0
OPEN 3
MOVE F
CLOSE .5
OPEN 3
DRIVE 6 -90 60
CLOSE .5
OPEN 3
TRANS T
40 20 .65 90 -90 0
TRANS F
20 35 3.3 90 90 0
MOVE_INSTANCE T F IP
TRANS F
20 35 3.3 180 90 0
OPEN 3
MOVE F
CLOSE .5
OPEN 3
DRIVE 6 -90 60
CLOSE .5
OPEN 3
PARK


DEFINE	SCREW	
BEGIN SCREW
TRANS BOLT
35 25 4.4 180 90 0
TRANS NUT
40 18 .80 180 90 0
VECT NULL
0 0 0
VECT F1
1 0 0
VECT F2
0 1 0
VECT F3
0 0 -1
VECT V
0 0 1.0
MOVE BOLT
OPEN 3
MERGE
CENTER .3
OPEN 3
DRIVE 6 90 60
CENTER .3
OPEN 3
SAVE BOLT
MOVE NUT
CLOSE .5
OPEN 3
DRIVE 6 90 60
CLOSE .5
OPEN 3
DRIVE 6 -90 60
CLOSE .5
NNUL
MOVE BOLT V 2 V 0
RESTORE BOLT 0
CONO NIL NIL NIL 0 0 0
FLUSH
L1: MOVE BOLT V 2 V 0
RESTORE BOLT 0
PLACE
VECT FORCE
0 0 -50
FREE 3 F1 F2 F3
FORCE FORCE NULL
DRIVE 6 360 200
VECT F
0 0 70
VECT M
0 0 0
STOP F M
CHANGE V 1 V 0 60
SKIPN 23
JUMP L1
VECT F
0 0 0
VECT M
0 0 -120
STOP F M
FORCE FORCE NULL
FREE 3 F1 F2 F3
DRIVE 6 1200 600
PARK
OPEN 3
MERGE


DEFINE	CRANK	
BEGIN CRANK 0
TRANS T
5.5 25 10.25 225 45 135
MOVE T
OPEN 3
MERGE
CLOSE .5
WAIT
VECT NULL
0 0 0
VECT AXIS
1 0 0
VECT CRANK
0 -6.8 0
VECT FORCE
0 0 -10
VECT F1
0 1 0
VECT F2
1 0 0
FREE 2 F1 F2
FORCE FORCE NULL
DRAW
NULL NULL 0 CRANK AXIS 360 300 3
OPEN 3
PARK